The Trig Explorer/The Trig Explorer.iso/mac/Explorer/ANGLES.dxr/00071.ls

Text File | 1998-07-22 | 606 b | 21 lines

on enterFrame
  set the constraint of sprite 8 to 4
  set the cursor of sprite 4 to 0
  set the cursor of sprite 8 to [321, 322]
  puppetSprite(5, 1)
  if the locV of sprite 8 > the locV of sprite 3 then
    set the type of sprite 5 to 5
    set x to -1
  else
    set the type of sprite 5 to 6
    set x to 1
  end if
  spriteBox(5, the left of sprite 5, the locV of sprite 3, the locH of sprite 8, the locV of sprite 8)
  set the floatPrecision to 1
  put x * float(atan(float(the height of sprite 5) / float(the width of sprite 5))) * 180.0 / PI into field "Slide"
end

on exitFrame
  go(the frame)
end